﻿Imports ValorYReferencia.Figuras
Imports System.Windows.Forms

Namespace Division
    Module PruebaMatriz
        Sub Main()
            Dim matriz(2, 2) As Integer
            Dim fila As Integer
            Dim maximo As Integer
            For i As Integer = 0 To 2
                For j As Integer = 0 To 2
                    Console.Write("Ingrese el valor ({0},{1}): ", i, j)
                    matriz(i, j) = CInt(Console.ReadLine())
                Next
            Next


            '2  3  1
            '5  4  6
            '10 11 8 



            Do
                Console.Write("Ingrese el número de fila: ")
                fila = CInt(Console.ReadLine())
            Loop Until fila >= 0 AndAlso fila <= 2

            maximo = matriz(fila, 0)
            For j As Integer = 1 To 2
                If matriz(fila, j) > maximo Then maximo = matriz(fila, j)
            Next

            Console.WriteLine("El máximo de la fila {0} es {1}", fila, maximo)
            Console.ReadKey()
        End Sub
    End Module
End Namespace